Imports CapaDeDatos
Public Class nCertificacionUnidad
    Private TblCertificacionUnidad As dCertificacionUnidad = New dCertificacionUnidad()
    Private TblUnidad As dUnidad = New dUnidad()
    Private TblEntec As dEnteC = New dEnteC()

    Public Function Insertar(ByVal NumeroCertificacion As Long, ByVal FechaInspeccion As Date, ByVal Descripcion As String, ByVal estado As String, ByVal vencimiento As Date, ByVal observacion As String, ByVal codigoUnidad As Long, ByVal codigoEnte As Long) As Boolean
        Return TblCertificacionUnidad.Insertar(NumeroCertificacion, FechaInspeccion, Descripcion, estado, vencimiento, observacion, codigoUnidad, codigoEnte)
    End Function
    Public Function Listar() As DataSet
        Return TblCertificacionUnidad.Listar()
    End Function
    Public Function Modificar(ByVal CodigoCertificacion As Long, ByVal NumeroCertificacion As Long, ByVal FechaInspeccion As Date, ByVal Descripcion As String, ByVal estado As String, ByVal vencimiento As Date, ByVal observacion As String, ByVal codigoUnidad As Long, ByVal codigoEnte As Long) As Boolean
        Return TblCertificacionUnidad.Modificar(CodigoCertificacion, NumeroCertificacion, FechaInspeccion, Descripcion, estado, vencimiento, observacion, codigoUnidad, codigoEnte)
    End Function
    Public Function Eliminar(ByVal CodigoCertificacion As String) As Boolean
        Return TblCertificacionUnidad.Eliminar(CodigoCertificacion)
    End Function
    Public Function Buscar(ByVal CodigoCertificacion As Long, ByVal NumeroCertificacion As Long, ByVal FechaInspeccion As Date, ByVal Descripcion As String, ByVal estado As String, ByVal vencimiento As Date, ByVal observacion As String, ByVal codigoUnidad As Long, ByVal codigoEnte As Long) As DataSet
        Dim dtsCertificacionUnidad As DataSet
        dtsCertificacionUnidad = TblCertificacionUnidad.BuscarFiltrado(CodigoCertificacion, NumeroCertificacion, FechaInspeccion, Descripcion, estado, vencimiento, observacion, codigoUnidad, codigoEnte)
        dtsCertificacionUnidad.Tables(0).Columns.Add("Unidad")
        dtsCertificacionUnidad.Tables(0).Columns.Add("EnteC")
        Dim i As Integer
        For i = 0 To dtsCertificacionUnidad.Tables(0).Rows.Count - 1
            Try
                ''obtener id del dataset principal (resultado: string, long int)
                Dim idCodigoUnidad As String = dtsCertificacionUnidad.Tables(0).Rows(i)("CodigoUnidad")

                ''genero data set secundario y filtro con el Id obtenido arriba
                Dim dtsUnidad As DataSet = TblUnidad.Buscar(Convert.ToInt32(idCodigoUnidad), 0, "", "", 0, "", "", New Date(), New Date(), 0, 0)

                ''del data set secundario saco el campo descripcion asigno a variable
                Dim dominio As String = dtsUnidad.Tables(0).Rows(0)("Dominio")

                ''data set principal asigno el valor a la columna adicionada
                dtsCertificacionUnidad.Tables(0).Rows(i)("Unidad") = dominio
            Catch ex As Exception
            End Try
            Try
                ''obtener id del dataset principal (resultado: string, long int)
                Dim idEntec As String = dtsCertificacionUnidad.Tables(0).Rows(i)("CodigoUnidad")

                ''genero data set secundario y filtro con el Id obtenido arriba
                Dim dtsEntec As DataSet = TblEntec.BuscarFiltrado(idEntec, "", "", "", "", "")

                ''del data set secundario saco el campo descripcion asigno a variable
                Dim RazonSocial As String = dtsEntec.Tables(0).Rows(0)("RazonSocial")

                ''data set principal asigno el valor a la columna adicionada
                dtsCertificacionUnidad.Tables(0).Rows(i)("EnteC") = RazonSocial
            Catch ex As Exception
            End Try
        Next

        Return dtsCertificacionUnidad
    End Function

End Class
